home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2002 #11 / Amiga Plus CD - 2002 - No. 11.iso / Tools / AmigaSystem / Scalos / Scalos-Module_EC / Install_Module < prev   
Encoding:
Text File  |  2002-10-28  |  6.2 KB  |  239 lines
  1. ; Installer for $VER:Execute Command 1.2.8 (09.01.2001)
  2. (SET @default-dest "SCALOS:Modules/")
  3. (SET @default-docdir "SCALOS:Docs/")
  4. (SET @default-images "SCALOS:Themes/Default/Modules/")
  5. (SET default_lang 1)
  6.  
  7. ; ***** english texts *****
  8.  
  9. (SET #needKick (CAT "\nExecute Command needs Kickstart ROM Version 39 at least." ) )
  10.  
  11. (SET #startMsg (CAT "\nS A T A N i C   D R E A M S   S O F T W A R E\n\npresents\n\nExecute Command V1.2.8 - the ultimate replacement !\n\n"
  12.                      "This script installs \"Execute_Command.module\" on your AMIGA\nrunning the Scalos desktop replacement.\n\n") )
  13.  
  14. (SET #destPrompt "Please choose the destination directory for Execute Command.\n" )
  15.  
  16. (SET #copyPFiles "Copying program files" )
  17.  
  18. (SET #langPrompt "Select the languages you wish to use with Execute Command." )
  19.  
  20. (SET #DocPrompt "Select the directory for the documentation file." )
  21.  
  22. (SET #exitMsg "Execute Command installation succeeded\nYou can use it now!\n\n\n\n\nvisit us @ http://scalos.satanicdreams.com" )
  23.  
  24. (SET #makingdirs "Creating directory structure" )
  25.  
  26. ; ***** start installation *****
  27. (if (< (/ (GETVERSION) 65536) 39)
  28.     (ABORT #needKick)
  29. )
  30.  
  31. (COMPLETE 0)
  32. (MESSAGE #startMsg)
  33.  
  34. ; ***** set-up directory structure for future versions of Scalos *****
  35. (MAKEDIR   "SCALOS:Themes"
  36.            (PROMPT #makingdirs)
  37.            (HELP @help-makedir)
  38. )
  39. (MAKEDIR   "SCALOS:Themes/Default")
  40. (MAKEDIR   "SCALOS:Themes/Default/Modules")
  41.            
  42.  
  43. ; ***** set dest dir for Execute Command *****
  44. (SET @default-dest "Scalos:Modules")
  45.  
  46. (COPYFILES (SOURCE "Execute_Command.module")
  47.            (HELP @copyfiles-help)
  48.            (DEST @default-dest )
  49.            (INFOS)
  50.            (NOPOSITION)
  51. )
  52.  
  53.  
  54. ; ***** if old image has been accessed since bootup it will be cached, flush memory first! *****
  55. (RUN "Avail Flush >NIL:")
  56. (COMPLETE 25)
  57. (COPYFILES (SOURCE "Images")
  58.            (ALL)
  59.            (HELP @copyfiles-help)
  60.            (DEST @default-images)
  61.            (INFOS)
  62. )
  63.  
  64.  
  65. ; ***** install some languages *****
  66. (SET language (ASKOPTIONS (PROMPT #langPrompt)
  67.                           (HELP   @askoptions-help)
  68.                           (CHOICES "english"
  69.                           )
  70.                           (DEFAULT (+ default_lang 0) )
  71.               )
  72. )
  73.  
  74. ;(if (IN language 1)
  75. ;    (COPYFILES (SOURCE "catalogs/deutsch/Execute_Command.catalog")
  76. ;               (DEST "Locale:Catalogs/deutsch") )
  77. ;)
  78.  
  79.  
  80. ; ***** get dest for doc files *****
  81. (COMPLETE 45)
  82. (SET @DocDir
  83.     (ASKDIR (PROMPT  #DocPrompt)
  84.             (HELP    @askdir-help)
  85.             (DEFAULT @default-docdir)
  86.             (NEWPATH)
  87.     )
  88. )
  89.  
  90.  
  91. ; ***** install doc files *****
  92. (COMPLETE 50)
  93. (if (IN language 0)
  94.   (SET SDocDir  "docs/english")
  95. )
  96.   
  97. (if (IN language 1)
  98.   (SET SDocDir "docs/deutsch")
  99. )  
  100.  
  101.  
  102. (COPYFILES (SOURCE  SDocDir)
  103.            (DEST    @DocDir)
  104.            (CHOICES "ExecuteCommand.guide")
  105.            (INFOS)
  106.            (NOPOSITION)
  107. )
  108.  
  109.  
  110. ; ***** do you wanna custom Shell command? *****
  111. ;(COMPLETE 60)
  112. ;(SET #setenv (ASKBOOL    (PROMPT 
  113. ;                        "Do you wish to enter a custom command line\n"
  114. ;                        "that will be executed when opening a new shell\n"
  115. ;                        "from within the \"Execute Command\" window?" 
  116. ;                    )
  117. ;                    (DEFAULT 0)
  118. ;                    (HELP @askbool-help)
  119. ;            )
  120. ;)
  121. ;
  122. ;
  123. ; ***** create ENV variable *****
  124. ;(DELETE "ENV:NEWCLI" (OPTIONAL "force"))
  125. (COMPLETE 75)
  126. ;(IF (= 1 #setenv)
  127. ;    ((SET #envcom (ASKSTRING
  128. ;                    (PROMPT
  129. ;                        "Enter you custom command to be used.\n"
  130. ;                        "This will be saved in the Environment variable\n"
  131. ;                        "'NEWCLI' as used by other applications."
  132. ;                    )
  133. ;                    (DEFAULT (GETENV "NEWCLI"))
  134. ;                    (HELP @askstring-help)
  135. ;                )
  136. ;    )
  137. ;
  138. ;    (RUN (cat "echo NOLINE >ENVARC:NEWCLI " #envcom))
  139. ;    )
  140. ;)
  141.  
  142. ; ***** create a default shell command *****
  143. ;(IF (= 0 #setenv)
  144. ;    (RUN "echo NOLINE >ENVARC:NEWCLI NewShell WINDOW=CON:0/20/600/200/ScalosShell/AUTO/WAIT")
  145. ;)
  146.  
  147.  
  148. ; ***** check a good enough transferanim.mcc is installed *****
  149. (SET #version (GETVERSION "mui:libs/mui/transferanim.mcc"))
  150. (SET #ver (/ #version 65536))
  151. (SET #rev (- #version (* #ver 65536)))
  152.  
  153. (IF (= #ver 1)
  154.     (IF (< #rev 5)
  155.         (MESSAGE
  156.             "IMPORTANT NOTICE!\n"
  157.             ("\nYou appear to have TransferAnim.mcc v%ld.%ld installed\n" #ver #rev)
  158.             "which is known to be buggy.  Please upgrade to at least v1.5 which\n"
  159.             "is available on Aminet NOW!"
  160.         )
  161.     )
  162. )
  163.  
  164.  
  165. ; ***** check a good enough imagepool.library is installed *****
  166. (SET #version (GETVERSION "libs:imagepool.library"))
  167. (SET #ver (/ #version 65536))
  168. (SET #rev (- #version (* #ver 65536)))
  169.  
  170. (IF (= #ver 0)
  171.     (IF (< #rev 7)
  172.         (MESSAGE
  173.             "IMPORTANT NOTICE!\n"
  174.             ("\nYou appear to have ImagePool.library v%ld.%ld installed.\n" #ver #rev)
  175.             "Please upgrade to at least v0.7ß, available on Aminet NOW!"
  176.         )
  177.     )
  178. )
  179.  
  180.  
  181. ; ***** check a good enough betterstring.mcc is installed *****
  182. (SET #version (GETVERSION "mui:libs/mui/betterstring.mcc"))
  183. (SET #ver (/ #version 65536))
  184. (SET #rev (- #version (* #ver 65536)))
  185.  
  186. (IF (= #ver 11)
  187.     (IF (< #rev 3)
  188.         (MESSAGE
  189.             "IMPORTANT NOTICE!\n"
  190.             ("\nYou appear to have BetterString.mcc v%ld.%ld installed.\n" #ver #rev)
  191.             "Please upgrade to at least v11.3, available on Aminet NOW!"
  192.         )
  193.     )
  194. )
  195.  
  196.  
  197. ; ***** check a good enough openURL.library is installed *****
  198. (set #exist (EXISTS "libs:openurl.library" (NOREQ)))
  199.  
  200. (IF (= 1 #exist)
  201.     (SET #version (GETVERSION "libs:openurl.library"))
  202.     (SET #ver (/ #version 65536))
  203.     (SET #rev (- #version (* #ver 65536)))
  204.  
  205.     (IF (= #ver 2)
  206.         (IF (< #rev 2)
  207.             (MESSAGE
  208.                 "IMPORTANT NOTICE!\n"
  209.                 ("\nYou appear to have OpenURL.library v%ld.%ld installed.\n" #ver #rev)
  210.                 "Please upgrade to at least v2.0, available on Aminet NOW!"
  211.             )
  212.         )
  213.     )
  214. )
  215.  
  216. ; ***** library is not present, recommend getting it *****
  217. (COMPLETE 90)
  218. (IF (= 0 #exist)
  219.     (MESSAGE
  220.         "IMPORTANT NOTICE!\n"
  221.         "\nIf you use the internet \"Execute Command\" can be used\n"
  222.         "to access websites by typing the URL into the string gadget!\n\n"
  223.         "But, in order for this to work you need to install\n"
  224.         "the \"OpenURL\" package as found on Aminet.\n\n"
  225.         "\"Execute Command\" can function okay without it however."
  226.     )
  227. )
  228.  
  229.  
  230. (COMPLETE 95)
  231. (STARTUP "Scalos-ECM"
  232.     (PROMPT "Adding a temporary assign to your S:User-Startup\nuntil main Scalos system is updated.\nIt will then be removed.")
  233.     (HELP "No help is available.  Just proceed and don't ask questions!") 
  234.     (COMMAND "Assign THEME: SCALOS:Themes/Default")
  235. )
  236.  
  237. (COMPLETE 100)
  238. (EXIT #exitMsg)
  239.